program endtest
	implicit none
	integer:: i
	do i = 1, 5
	end do
	print *, i
end program
